home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Hy-Hyperi / HYPERCISE.cpt / EXERCISE / card_9479.txt < prev    next >
Encoding:
Text File  |  1988-01-10  |  7.7 KB  |  318 lines
  1. -- card: 9479 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2602
  5. -- name: OVERHAND ROW
  6.  
  7.  
  8. -- part 6 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=118 top=61 right=81 bottom=338
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 128
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: EXERCISE
  20.  
  21.  
  22. -- part 11 (field)
  23. -- low flags: 00
  24. -- high flags: 0007
  25. -- rect: left=184 top=105 right=219 bottom=270
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 128
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: WEIGHT
  34. ----- HyperTalk script -----
  35. on mouseWithin
  36.   get the scroll of card field "WEIGHT"
  37.   set the scroll of card field "DATE" to it
  38.   set the scroll of card field "REPS" to it
  39.   set the scroll of card field "SETS" to it
  40. end mouseWithin
  41.  
  42.  
  43.  
  44. -- part 12 (field)
  45. -- low flags: 00
  46. -- high flags: 0007
  47. -- rect: left=296 top=106 right=220 bottom=383
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 128
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: REPS
  56. ----- HyperTalk script -----
  57. on mouseWithin
  58.   get the scroll of card field "REPS"
  59.   set the scroll of card field "DATE" to it
  60.   set the scroll of card field "WEIGHT" to it
  61.   set the scroll of card field "SETS" to it
  62. end mouseWithin
  63.  
  64.  
  65.  
  66. -- part 13 (field)
  67. -- low flags: 00
  68. -- high flags: 0007
  69. -- rect: left=412 top=106 right=223 bottom=494
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 128
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: SETS
  78. ----- HyperTalk script -----
  79. on mouseWithin
  80.   get the scroll of card field "SETS"
  81.   set the scroll of card field "DATE" to it
  82.   set the scroll of card field "WEIGHT" to it
  83.   set the scroll of card field "REPS" to it
  84. end mouseWithin
  85.  
  86.  
  87.  
  88. -- part 14 (field)
  89. -- low flags: 00
  90. -- high flags: 0007
  91. -- rect: left=52 top=105 right=220 bottom=146
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 128
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: DATE
  100. ----- HyperTalk script -----
  101. on mouseWithin
  102.   get the scroll of card field "DATE"
  103.   set the scroll of card field "WEIGHT" to it
  104.   set the scroll of card field "REPS" to it
  105.   set the scroll of card field "SETS" to it
  106. end mouseWithin
  107.  
  108.  
  109.  
  110. -- part 18 (button)
  111. -- low flags: 00
  112. -- high flags: A003
  113. -- rect: left=426 top=274 right=296 bottom=482
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: SETS
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   PUSH CARD
  125.   PUT SHORT NAME OF THIS CARD INTO EXNAME
  126.   GO TO CARD "CHART"
  127.   PUT CARD FIELD "SETS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  128.   PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  129.   PUT  " SETS" AFTER BACKGROUND FIELD "GRAPH NAME"
  130.   put the userLevel into saveLevel
  131.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  132.   if the userLevel < 3 then exit mouseUp
  133.   CLEARSCREEN
  134.   put empty into background field "total"
  135.   reset paint
  136.   choose rect tool
  137.   set lineSize to 1
  138.   set pattern to 14
  139.   set filled to true
  140.   put frameleft() into horiz
  141.   put maxLine(field "DATA") into maxValue
  142.   put the number of lines in field "DATA" into dataCount
  143.   put round(framewidth()/dataCount) into horizStep
  144.   put round(horizStep * 3/4) into width
  145.   repeat with i = 1 to dataCount
  146.     get line i of field "DATA"
  147.     if it is not empty then
  148.       put round(frameheight() * it / maxValue) into height
  149.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  150.     end if
  151.     add horizStep to horiz
  152.   end repeat
  153.   reset paint
  154.   choose browse tool
  155.   set userLevel to saveLevel
  156. end mouseUp
  157.  
  158.  
  159.  
  160.  
  161. -- part 19 (button)
  162. -- low flags: 00
  163. -- high flags: A003
  164. -- rect: left=316 top=274 right=296 bottom=372
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: REPS
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   PUSH CARD
  176.   PUT SHORT NAME OF THIS CARD INTO EXNAME
  177.   GO TO CARD "CHART"
  178.   PUT CARD FIELD "REPS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  179.   PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  180.   PUT  " REPS" AFTER BACKGROUND FIELD "GRAPH NAME"
  181.   put the userLevel into saveLevel
  182.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  183.   if the userLevel < 3 then exit mouseUp
  184.   CLEARSCREEN
  185.   put empty into background field "total"
  186.   reset paint
  187.   choose rect tool
  188.   set lineSize to 1
  189.   set pattern to 14
  190.   set filled to true
  191.   put frameleft() into horiz
  192.   put maxLine(field "DATA") into maxValue
  193.   put the number of lines in field "DATA" into dataCount
  194.   put round(framewidth()/dataCount) into horizStep
  195.   put round(horizStep * 3/4) into width
  196.   repeat with i = 1 to dataCount
  197.     get line i of field "DATA"
  198.     if it is not empty then
  199.       put round(frameheight() * it / maxValue) into height
  200.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  201.     end if
  202.     add horizStep to horiz
  203.   end repeat
  204.   reset paint
  205.   choose browse tool
  206.   set userLevel to saveLevel
  207. end mouseUp
  208.  
  209.  
  210.  
  211.  
  212. -- part 20 (button)
  213. -- low flags: 00
  214. -- high flags: A003
  215. -- rect: left=204 top=274 right=296 bottom=260
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 1
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: WEIGHT
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   PUSH CARD
  227.   PUT SHORT NAME OF THIS CARD INTO EXNAME
  228.   GO TO CARD "CHART"
  229.   PUT CARD FIELD "WEIGHT" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  230.   PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  231.   PUT  " WEIGHT" AFTER BACKGROUND FIELD "GRAPH NAME"
  232.   put the userLevel into saveLevel
  233.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  234.   if the userLevel < 3 then exit mouseUp
  235.   CLEARSCREEN
  236.   put empty into background field "total"
  237.   reset paint
  238.   choose rect tool
  239.   set lineSize to 1
  240.   set pattern to 14
  241.   set filled to true
  242.   put frameleft() into horiz
  243.   put maxLine(field "DATA") into maxValue
  244.   put the number of lines in field "DATA" into dataCount
  245.   put round(framewidth()/dataCount) into horizStep
  246.   put round(horizStep * 3/4) into width
  247.   repeat with i = 1 to dataCount
  248.     get line i of field "DATA"
  249.     if it is not empty then
  250.       put round(frameheight() * it / maxValue) into height
  251.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  252.     end if
  253.     add horizStep to horiz
  254.   end repeat
  255.   reset paint
  256.   choose browse tool
  257.   set userLevel to saveLevel
  258. end mouseUp
  259.  
  260.  
  261.  
  262.  
  263. -- part 21 (button)
  264. -- low flags: 00
  265. -- high flags: 8003
  266. -- rect: left=28 top=275 right=297 bottom=128
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 1
  270. -- font id: 0
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: NEW EXERCISE
  275. ----- HyperTalk script -----
  276. on mouseUp
  277.   ask "What is the name of the exercise?" with "New Exercise"
  278.   doMenu copy card
  279.   doMenu paste card
  280.   set the name of this card to it
  281.   put it into card field "exercise"
  282.   put " " into card field "weight"
  283.   put " " into card field "reps"
  284.   put " " into card field "sets"
  285. end mouseUp
  286.  
  287.  
  288.  
  289. -- part contents for card part 14
  290. ----- text -----
  291. 1/5/88
  292. 1/7/88
  293. 1/9/88
  294.  
  295.  
  296.  
  297.  
  298. -- part contents for card part 11
  299. ----- text -----
  300. 55
  301. 55
  302. 55
  303.  
  304. -- part contents for card part 12
  305. ----- text -----
  306. 15
  307. 15
  308. 20
  309.  
  310. -- part contents for card part 13
  311. ----- text -----
  312. 1
  313. 2
  314. 2
  315.  
  316. -- part contents for card part 6
  317. ----- text -----
  318. OVERHAND ROW